home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Bus / H-L / Invoicer.cpt / CustHist < prev    next >
Encoding:
Text File  |  1987-05-25  |  3.9 KB  |  188 lines  |  [TEXT/MSBA]
  1. CLS
  2.   CustCode:
  3.   CLS
  4.     TEXTSIZE (24):TEXTFACE(5)
  5.     PRINT:PRINT SPC(7);"CUSTOMER HISTORY"
  6.     TEXTSIZE(12):TEXTFACE(0)
  7.     INPUT"Customer code ('help' for code list): ",cd$
  8.     IF cd$="help" OR cd$ = "h" THEN GOTO ListCodes
  9.     IF cd$="quit" OR cd$="q" THEN CLS:LOAD "Open Me First",R
  10.     IF LEN(cd$)<>2 THEN BEEP: GOTO CustCode
  11.     
  12.    SecondChk:
  13.      CLS
  14.      OPEN "Customers B"FOR INPUT AS #1
  15.    SecChk:
  16.      IF EOF(1)THEN CLOSE #1:GOTO NotHere
  17.      INPUT #1,CO$,CN$,ts$
  18.      IF CO$=cd$ THEN CLOSE #1:cc$=CN$:GOTO History
  19.      GOTO SecChk
  20.  
  21.   NotHere:
  22.     CLS
  23.     TEXTFACE(1)
  24.     PRINT:PRINT" This customer not on file…":FOR m = 1 TO 2500:NEXT:CLS:RUN
  25.    
  26.   History:
  27.     OPEN CO$ FOR INPUT AS #1
  28.     INPUT #1,BF
  29.     CLOSE #1
  30.  
  31.     TEXTFACE(0)
  32.    PRINT"     Customer:  ";SPC(7);
  33.     TEXTFACE(1)
  34.     IF LEN (CN$) >43 THEN PRINT LEFT$(CN$,43);"…"
  35.     IF LEN (CN$) > 43 THEN GOTO Skpt
  36.    PRINT CN$
  37.  Skpt:
  38.     TEXTFACE(0)
  39.    PRINT"     Balance forward: ";SPC(2);
  40.     TEXTFACE(1)
  41.    PRINT USING "$#####.##";BF
  42.    
  43.    WINDOW 2,"",(25,75)-(247,280),3
  44.    WINDOW 3,"",(25,285)-(247,330),3
  45.    
  46.   YourChoice:
  47.     WINDOW 4,"",(252,121)-(477,330),3
  48.     BUTTON 1,1,"billed",(20,20)-(200,50),1
  49.     BUTTON 2,1,"paid",(20,70)-(200,100),1
  50.     BUTTON 3,1,"another",(20,120)-(200,150),1
  51.     BUTTON 4,1,"quit",(20,170)-(200,200),1
  52.    yc:
  53.     WHILE DIALOG(0)<>1:WEND
  54.     ButtonPushed =DIALOG(1)
  55.     IF ButtonPushed =1 THEN BilledToDate
  56.     IF ButtonPushed =2 THEN PaidToDate
  57.     IF ButtonPushed =3 THEN GOSUB ShutAll: RUN
  58.     IF ButtonPushed =4 THEN GOSUB ShutAll: LOAD "Open Me First",R
  59.     
  60.    ShutAll:
  61.      WINDOW OUTPUT 1
  62.      CLS
  63.      WINDOW CLOSE 2
  64.      WINDOW CLOSE 3
  65.      WINDOW CLOSE 4
  66.      RETURN
  67.  
  68.    BilledToDate:
  69.      WINDOW OUTPUT 3
  70.      CLS
  71.      WINDOW OUTPUT 2
  72.      CLS
  73.      WINDOW OUTPUT 1
  74.      GOSUB CustLabel
  75.      TEXTFACE(1):TEXTSIZE(24):PRINT SPC(15);"BILLED TO DATE"
  76.      LINE (249,33)-(475,75),,B
  77.      TEXTFACE(0):TEXTSIZE(12)
  78.      OPEN "Accts Billed" FOR INPUT AS #1
  79.      WINDOW OUTPUT 2
  80.      CLS
  81.   Reedata:
  82.    IF EOF(1) THEN ttl
  83.    INPUT #1,ts$
  84.    INPUT #1,CO$
  85.    INPUT#1, db$
  86.    INPUT#1, CN$
  87.    INPUT#1,IT$
  88.  
  89.    IF CO$<>cd$ THEN Reedata
  90.    TEXTFACE(0)
  91.    PRINT SPC(1); db$;SPC(8);
  92. TEXTFACE (1)
  93.    IT=VAL(IT$)
  94.    PRINT USING "$#####.##";IT
  95.    tt=tt+IT
  96.    IF EOF(1) THEN ttl
  97.    GOTO Reedata
  98.    
  99.    ttl:
  100.      WINDOW OUTPUT 3
  101.      PRINT
  102.      TEXTFACE(1):TEXTSIZE(18)
  103.      PRINT"TOTAL";
  104.      TEXTSIZE(12)
  105.      PRINT SPC(9);
  106.      PRINT USING"$#####.##"; tt;
  107.      tt=0
  108.      CLOSE #1
  109.      GOTO yc
  110.      
  111.    Finish:
  112.      CLOSE #1
  113.      PRINT
  114.      GOTO NewWndw
  115.      
  116.   PaidToDate:
  117.     WINDOW OUTPUT 3
  118.     CLS
  119.     WINDOW OUTPUT 2
  120.     CLS
  121.     WINDOW OUTPUT 1
  122.     GOSUB CustLabel
  123.     TEXTFACE(1):TEXTSIZE(24):PRINT SPC(16);"PAID TO DATE"
  124.     LINE (249,33)-(475,75),,B
  125.     TEXTFACE(0):TEXTSIZE(12)
  126.     OPEN "Accts Recd" FOR INPUT AS #1
  127.     WINDOW OUTPUT 2
  128.     CLS
  129.   Readata:
  130.  IF EOF(1) THEN ttl
  131.    INPUT#1, ts$
  132.    INPUT#1, CO$
  133.    INPUT#1,dr$
  134.    INPUT#1,CN$
  135.    INPUT #1, PR$
  136.    IF CO$<>cd$ THEN Readata
  137. TEXTFACE(0)
  138.    PRINT SPC(1); dr$;SPC(8);
  139. TEXTFACE(1)
  140.  PR=VAL(PR$)
  141.    PRINT USING "$#####.##";PR
  142.    tt=tt+PR
  143.  IF EOF(1) THEN ttl
  144.    GOTO Readata
  145.  
  146.    ListCodes:
  147. CLS
  148.   Lst:
  149.      OPEN "Customers B" FOR INPUT AS #1
  150.      WINDOW 2,"",(25,50)-(476,280),3
  151.   OpFile:
  152.      TEXTFACE(1)
  153.      IF EOF(1) THEN CLOSE #1:TEXTFACE(0):GOTO NewWndw
  154.      INPUT #1,cd$,CN$,ts$
  155.      PRINT cd$;
  156.      PRINT" - ";CN$
  157.      GOTO OpFile
  158.  
  159.   NewWndw:
  160.  WINDOW 3,"",(25,285)-(476,330),-3
  161.     BUTTON 1,1,"again",(55,10)-(130,35),1
  162.     BUTTON 2,1,"enter info",(192,10)-(267,35),1
  163.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  164.       WHILE DIALOG(0)<>1:WEND
  165.       ButtonPushed = DIALOG(1)
  166.       IF ButtonPushed = 1 THEN Lst
  167.       IF ButtonPushed  = 2 THEN  WINDOW CLOSE 2:WINDOW CLOSE 3:RUN
  168.       IF ButtonPushed  = 3 THEN LOAD "Open Me First",R
  169.  
  170.   CustLabel:
  171.     CLS
  172.     TEXTFACE(0)
  173.     PRINT"     Customer:  ";SPC(10);
  174.     TEXTFACE(1)
  175.     PRINT cc$
  176.     TEXTFACE(0)
  177.     PRINT"     Balance forward: ";SPC(5);
  178.     TEXTFACE(1)
  179.     PRINT USING "$#####.##";BF
  180.     PRINT
  181.     RETURN
  182.     
  183.  
  184.  
  185.  
  186.  
  187.  
  188.